اضافه نمودن هر نوع فایل به پروژه

- با این روش شما به راحتی می تونید هر نوع فایلی رو که مد نظرتون هست به برنامتون اضافه کنید (مثل فونت یا کامپوننت) و در صورت نبودن اون فایل بر روی سیستم ، برنامتون فایل رو روی سیستم ایجاد کنه

- و یا اینکه برای برنامه هاتون ستاپ سازی دلخواه خودتون رو انجام بدید

روش کار به این شکله که شما فایل مورد نظر خودتون رو در بخش resource به پروژتون اضافه می کنید و با استفاده از تابع زیر اون فایل رو در آدرس دلخواهتون ایجاد می کنید:

Public Sub LoadDataIntoFile(DataName As Integer, FileName As String)
    Dim myArray() As Byte
    Dim myFile As Long
    If Dir(FileName) = "" Then
        myArray = LoadResData(DataName, "CUSTOM")
        myFile = FreeFile
        Open FileName For Binary Access Write As #myFile
        Put #myFile, , myArray
        Close #myFile
    End If
End Sub

یه نمونه برنامه براتون میذارم تا بهتر متوجه بشین

نظر فراموش نشه

نوشته شده توسط مهدی در دوشنبه 88/4/15 و ساعت 8:14 عصر | نظرات دیگران()